
OUTPUT TO c:\same-ps.txt .

DEFINE BUFFER ps FOR ps_mstr .

FOR EACH ps_mstr NO-LOCK WITH STREAM-IO WIDTH 132 :

    FIND FIRST ps NO-LOCK WHERE RECID(ps) <> RECID(ps_mstr) AND ps.ps_par = ps_mstr.ps_par AND ps.ps_comp = ps_mstr.ps_comp
        AND ps.ps_ref = ps_mstr.ps_ref AND ps.ps_start = ps_mstr.ps_start NO-ERROR.

    IF AVAILABLE ps THEN 
        DISP ps.ps_par ps.ps_comp ps.ps_ref ps.ps_start.

END.

OUTPUT CLOSE.
